home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 1997 June / Personal_Computer_World_Jun_97.iso / dxrs / jukebx06.dxr / 00036_Control Loop.ls < prev    next >
Encoding:
Text File  |  1997-03-24  |  452 b   |  26 lines
  1. on exitFrame
  2.   global screen, JukeMode
  3.   repeat while JukeMode
  4.     case screen of
  5.       0:
  6.         buildIntroScreen()
  7.         set screen to 1
  8.       1:
  9.         hExit()
  10.       2:
  11.         BuildJukeBoxScreen()
  12.         bubbleVariables()
  13.         set screen to 3
  14.       3:
  15.         CheckInterfaceButtons()
  16.         BubbleAnimation()
  17.         hExit()
  18.       4:
  19.         BuildExitScreen()
  20.         set screen to 5
  21.       5:
  22.         hExit()
  23.     end case
  24.   end repeat
  25. end
  26.